home *** CD-ROM | disk | FTP | other *** search
/ 3D GFX / 3D GFX.iso / amiutils / q_t / smartfractal / reqtools / install / workbench_2.1+ / install reqtools < prev    next >
Encoding:
Text File  |  1995-12-31  |  17.1 KB  |  602 lines
  1.  
  2. ; Install script for ReqTools (Workbench 2.1 or higher)
  3.  
  4. (set @default-dest "")
  5. (set old_level @user-level)
  6.  
  7. (set reqtoolslib "//libs20/reqtools.library")
  8. (set rtpatch "//RTPatch/RTPatch")
  9. (set catalogdir "//Catalogs/")
  10.  
  11. ;=============================================================================
  12. ; English strings
  13.  
  14. (set default_lang 4)
  15.  
  16. (set #bad-kick
  17. (cat "You must be using Kickstart 2.04 to install using this script!"
  18.       " Double-click the 'Workbench_1.2-1.3' icon to install ReqTools on"
  19.       " Kickstart 1.2 or 1.3 machines."
  20. ))
  21.  
  22. (set #copying-reqtools "Copying reqtools.library to Libs:...")
  23. (set #copying-rtpatch  "Copying RTPatch...")
  24.  
  25. (set #which-language
  26. (cat "\nWhich languages should be installed?"
  27. ))
  28. (set #which-language-help
  29. (cat "\nThe Amiga can be operated in many different"
  30.       " languages. If you want ReqTools requesters to"
  31.       " use the same language as the Amiga Workbench"
  32.       " then a catalog file must be copied to your"
  33.       " system disk for each language supported.\n\n"
  34.       "To reduce the amount of space consumed by the"
  35.       " language files, you can select to have only the"
  36.       " files of specific languages copied.\n\n"
  37.       "Simply check the boxes of the languages you wish"
  38.       " to have available on your system.\n\n"
  39.       @askoptions-help
  40. ))
  41.  
  42. (set #install-msg
  43. (cat "\n\nReqTools installation script.\n"
  44.      "This script installs ReqTools library on your Amiga.\n\n"
  45.      "Read the DISTRIBUTION file for\n"
  46.      "more information on the distribution\n"
  47.      "and commercial usage of ReqTools.\n\n"
  48.      "ReqTools ⌐ 1991-1994 Nico Franτois\n"
  49.      "All rights reserved."
  50. ))
  51.  
  52. ;=============================================================================
  53. ; Portugues strings
  54.  
  55. (if (= @language "portuguΩs")
  56. (
  57.  
  58. (set default_lang 512)
  59.  
  60. (set #bad-kick
  61. (cat "╔ preciso de ter o Kickstart 2.04 para poder instalar!" ))
  62.  
  63. (set #copying-reqtools "Copiando reqtools.library para a Libs:...")
  64. (set #copying-rtpatch  "Copiando RTPatch...")
  65.  
  66. (set #which-language
  67. (cat "\nQue linguagens deverπo ser instaladas?" ))
  68.  
  69. (set #which-language-help
  70. (cat "\nO Amiga pode ser operado em muitas linguagens "
  71.      "diferentes. Alguns ficheiros tΩm de ser copiados "
  72.      "para o seu disco rφgido por cada linguagem suportada.\n\n"
  73.      "Para reduzir o consumo de espaτo no disco pelas linguagens "
  74.      "poderß apenas escolher aquelas que lhe serπo ·teis.\n\n"
  75.      "Para isto basta apenas marcar as caixas com os nomes das "
  76.      "linguagens para que estas sejam instaladas.\n\n"
  77.      @askoptions-help
  78. ))
  79.  
  80.  
  81. (set #install-msg
  82. (cat "\n\nScript de Instalaτπo do ReqTools.\n"
  83.      "Este script instala o ReqTools no seu Amiga.\n\n"
  84.      "Leia o ficheiro DISTRIBUTION para\n"
  85.      "mais informaτπo acerca da distribuiτπo\n"
  86.      "e uso comercial do ReqTools.\n\n"
  87.      "ReqTools ⌐ 1991-1994 Nico Franτois\n"
  88.      "Todos os Direitos Reservados."
  89. ))
  90.  
  91. ))
  92.  
  93. ;=============================================================================
  94. ; Spanish strings
  95.  
  96. (if (= @language "espa±ol")
  97. (
  98.  
  99. (set default_lang 8)
  100.  
  101. ; string needs to be changed (see english string)
  102. (set #bad-kick
  103. (cat "Necesita usar el Kickstart 2.04 para instalar!"
  104. ))
  105.  
  106. (set #copying-reqtools "Copiado reqtools.library a Libs:...")
  107. (set #copying-rtpatch  "Copiado RTPatch...")
  108.  
  109. (set #which-language
  110. (cat "\n┐QuΘ lenguaje quiere instalar?"
  111. ))
  112.  
  113. ; string needs to be changed (see english string)
  114. (set #which-language-help
  115. (cat "\nAmiga puede operar en diferentes idiomas. "
  116.      "Se copiarßn algunos ficheros a su disco duro "
  117.      "por cada idioma utilizado.\n\n"
  118.      "Para reducir el espacio usado en disco duro "
  119.      "puede seleccionar s≤lo los ficheros del idioma "
  120.      "que va a utilizar.\n\n"
  121.      "S≤lamente tiene que pulsar en el idioma que "
  122.      "quiera instalar en su sistema.\n\n"
  123.      @askoptions-help
  124. ))
  125.  
  126. ; not translated yet!
  127. ;(set #install-msg
  128. ;(cat "\n\nReqTools installation script.\n"
  129. ;     "This script installs ReqTools library on your Amiga.\n\n"
  130. ;     "Read the DISTRIBUTION file for\n"
  131. ;     "more information on the distribution\n"
  132. ;     "and commercial usage of ReqTools.\n\n"
  133. ;     "ReqTools ⌐ 1991-1994 Nico Franτois\n"
  134. ;     "All rights reserved."
  135. ;))
  136.  
  137. ))
  138.  
  139. ;=============================================================================
  140. ; French strings
  141.  
  142. (if (= @language "franτais")
  143. (
  144.  
  145. (set default_lang 16)
  146.  
  147. (set #bad-kick
  148. (cat "Vous devez utiliser le Kickstart 2.04 pour pouvoir installer Reqtools"
  149.    " avec ce script\n."  
  150.    " Double-cliquer sur l'ic⌠ne 'Workbench_1.2-1.3' pour installer ReqTools"
  151.    " sur une machine possΘdant le Kickstart 1.2 o∙ 1.3." ))
  152.  
  153. (set #copying-reqtools "Copie du fichier reqtools.library vers Libs:...") (set
  154. #copying-rtpatch  "Copie du fichier RTPatch...")
  155.  
  156. (set #which-language
  157. (cat "\nQuelles sont les langues α installer ?" ))
  158.  
  159. (set #which-language-help
  160. (cat "\nL'Amiga peut fonctionner dans diffΘrentes langues. "
  161.      "Plusieurs fichiers doivent Ωtre copiΘs sur le disque dur "
  162.      "pour chaque langue utilisΘee\n\n"
  163.      "Pour rΘduire la quantitΘ d'espace utilisΘ par ces fichiers, "
  164.      "vous devez sΘlectionner seulement les langues qui vous seront "
  165.      "utiles.\n\n"
  166.      "Cochez les langues que vous souhaitez Ωtre disponibles "
  167.      "sur votre systΦme\n\n"
  168.      @askoptions-help
  169. ))
  170.  
  171. (set #install-msg
  172. (cat "\n\nScript d'installation de ReqTools.\n"
  173.      "Ce script installe la librairie ReqTools sur votre Amiga.\n\n"
  174.      "Lisez le fichier intitulΘ DISTRIBUTION pour\n"
  175.      "de plus amples informations sur la distribution\n"
  176.      "et l'utilisation commerciale de ReqTools.\n\n"
  177.      "ReqTools ⌐ 1991-1994 Nico Franτois\n"
  178.      "Tous Droits rΘservΘs."
  179. ))
  180.  
  181. ))
  182.  
  183. ;=============================================================================
  184. ; German strings
  185.  
  186. (if (= @language "deutsch")
  187. (
  188.  
  189. (set default_lang 2)
  190.  
  191. (set #bad-kick
  192. (cat "Sie mⁿssen Kickstart 2.04 benutzen, um dieses Skript zur Installation "
  193.       "benutzen zu k÷nnen! Klicken sie zweimal auf das 'Workbench_1.2-1.3'"
  194.       "-Piktogramm, um ReqTools auf Rechnern mit Kickstart 1.2 oder 1.3 zu "
  195.       "installieren."
  196. ))
  197.  
  198. (set #copying-reqtools "Kopieren Datei reqtools.library nach Libs:...")
  199. (set #copying-rtpatch  "Kopieren Datei RTPatch...")
  200.  
  201. (set #which-language
  202. (cat "\nWelche Sprachen sollen installiert werden?"
  203. ))
  204. (set #which-language-help
  205. (cat "\nDer Amiga kann in vielen verschiedenen Sprachen betrieben werden. "
  206.       "Wenn Sie wollen, da▀ die ReqTools-Dialogfenster die gleiche Sprache "
  207.       "wie die Amiga-Workbench benutzen, mⁿssen fⁿr jede zu installierende Sprache "
  208.       "zwei Dateien auf Ihre Festplatte kopiert werden.\n\n"
  209.       "Um den Platz in Grenzen zu halten, den die Sprachentreiberdateien "
  210.       "einnehmen, k÷nnen Sie wΣhlen, nur die Treiber fⁿr bestimmte "
  211.       "Sprachen zu installieren.\n\n"
  212.       "Klicken Sie einfach die Felder derjenigen Sprachen an, die Sie in "
  213.       "Ihrem System verfⁿgbar haben wollen, so da▀ diese Sprachen mit "
  214.       "einem HΣkchen markiert sind.\n\n"
  215.       @askoptions-help
  216. ))
  217.  
  218. (set #install-msg
  219. (cat "\n\nReqTools Installationsskript.\n"
  220.       "Diese Befehlsdatei installiert die ReqTools-Library auf Ihrem Amiga.\n\n"
  221.       "Lesen Sie die 'DISTRIBUTION'-Datei fⁿr\n"
  222.       "weitere Informationen ⁿber Weitergeabe\n"
  223.       "und kommerzielle Nutzung von ReqTools.\n\n"
  224.       "ReqTools ⌐ 1991-1994 Nico Franτois\n"
  225.       "All rights reserved."
  226. ))
  227.  
  228. ))
  229.  
  230. ;=============================================================================
  231. ; Dutch strings
  232.  
  233. (if (= @language "nederlands")
  234. (
  235.  
  236. (set default_lang 64)
  237.  
  238. (set #bad-kick
  239. (cat "U moet Kickstart 2.04 gebruiken om met dit installatie script te"
  240.       " installeren!  Dubbel-klik het 'Workbench_1.2-1.3' ikoon om ReqTools"
  241.       " te installeren op Kickstart 1.2 of 1.3 machines."
  242. ))
  243.  
  244. (set #copying-reqtools "Kopieer reqtools.library naar Libs:...")
  245. (set #copying-rtpatch  "Kopieer RTPatch...")
  246.  
  247. (set #which-language
  248. (cat "\nWelke talen moeten ge∩nstalleerd worden?"
  249. ))
  250. (set #which-language-help
  251. (cat "\nDe Amiga kan werken in verschillende talen."
  252.       " Als u wilt dat ReqTools in dezelfde taal werkt"
  253.       " dan moet er voor elke taal een bestand naar"
  254.       " uw systeem disk gekopieerd worden.\n\n"
  255.       "Om de grootte van het geheugen die de taal bestanden"
  256.       " innemen te verkleinen, kunt u een keuze maken uit"
  257.       " de talen, die vervolgens naar uw systeem disk worden"
  258.       " gekopieerd .\n\nU hoeft alleen die talen die u op"
  259.       " uw systeem wilt hebben aan te klikken.\n\n"
  260.      @askoptions-help
  261. ))
  262.  
  263. (set #install-msg
  264. (cat "\n\nReqTools installatie script.\n"
  265.      "Dit script installeert 'ReqTools library' op uw Amiga.\n\n"
  266.      "Lees het 'DISTRIBUTION' bestand voor\n"
  267.      "meer informatie over de verspreiding\n"
  268.      "en het commcerciδle gebruik van ReqTools.\n\n"
  269.      "ReqTools ⌐ 1991-1994 Nico Franτois\n"
  270.      "All rights reserved."
  271. ))
  272.  
  273. ))
  274.  
  275. ;=============================================================================
  276. ; Italian strings
  277.  
  278. (if (= @language "italiano")
  279. (
  280. (set default_lang 32)
  281.  
  282. ; string needs to be changed (see english string)
  283. (set #bad-kick
  284. (cat "E' necessario il Kickstart 2.04 per installare!"
  285. ))
  286.  
  287. (set #copying-reqtools "Copia reqtools.library nel Libs:...")
  288. (set #copying-rtpatch  "Copia RTPatch...")
  289.  
  290. (set #which-language
  291. (cat "\nQuali lingue devono essere installate? "
  292. ))
  293.  
  294. ; string needs to be changed (see english string)
  295. (set #which-language-help
  296. (cat "\nAmiga pu≥ operate con lingue differenti. "
  297.      "Per ogni lingua supportata saranno copiati "
  298.      "numerosi file sul vostro disco fisso.\n\n"
  299.      "Per ridurre lo spazio occupato da questi "
  300.      "file, potete installare solo quelli di una "
  301.      "lingua specifica.\n\n"
  302.      "Segnate solo i riquadri delle lingue che volete "
  303.      "siano disponibili sul vostro sistema.\n\n"
  304.      @askoptions-help
  305. ))
  306.  
  307. ; not translated yet!
  308. ;(set #install-msg
  309. ;(cat "\n\nReqTools installation script.\n"
  310. ;     "This script installs ReqTools library on your Amiga.\n\n"
  311. ;     "Read the DISTRIBUTION file for\n"
  312. ;     "more information on the distribution\n"
  313. ;     "and commercial usage of ReqTools.\n\n"
  314. ;     "ReqTools ⌐ 1991-1994 Nico Franτois\n"
  315. ;     "All rights reserved."
  316. ;))
  317.  
  318. ))
  319.  
  320. ;=============================================================================
  321. ; Danish strings
  322.  
  323. (if (= @language "dansk")
  324. (
  325.  
  326. (set default_lang 1)
  327.  
  328. (set #bad-kick
  329. (cat "Din maskine har ikke Kickstart 2.04, mindstekravet"
  330.      " for dette installations-program.\n\n"
  331.      "Dobbeltklik pσ 'Workbench_1.2-1.3' ikonet for at installere"
  332.      " ReqTools pσ maskiner med Kickstart 1.2 eller 1.3"
  333. ))
  334.  
  335. (set #copying-reqtools "Kopierer reqtools.library til Libs:...")
  336. (set #copying-rtpatch  "Kopierer RTPatch...")
  337.  
  338. (set #which-language
  339. (cat "\nHvilke(t) sprog skal installeres?"
  340. ))
  341.  
  342. (set #which-language-help
  343. (cat "\nDin Amiga kan arbejde pσ mange forskellige sprog.\n"
  344.      "Der skal kopieres adskillige filer til din system-disk"
  345.      " for hvert sprog du vil benytte.\n\n"
  346.      "Hvis ReqTools kun skal kommunikere pσ Engelsk,"
  347.      " beh°ver du ikke at vµlge andre sprog.\n\n"
  348.      "Klik pσ knapperne ud for hvert sprog du vil have til"
  349.      " rσdighed pσ dit system.\n\n"
  350.      @askoptions-help
  351. ))
  352.  
  353. ; not translated yet!
  354. ;(set #install-msg
  355. ;(cat "\n\nReqTools installation script.\n"
  356. ;     "This script installs ReqTools library on your Amiga.\n\n"
  357. ;     "Read the DISTRIBUTION file for\n"
  358. ;     "more information on the distribution\n"
  359. ;     "and commercial usage of ReqTools.\n\n"
  360. ;     "ReqTools ⌐ 1991-1994 Nico Franτois\n"
  361. ;     "All rights reserved."
  362. ;))
  363.  
  364. ))
  365.  
  366. ;=============================================================================
  367. ; Swedish strings
  368.  
  369. (if (= @language "svenska")
  370. (
  371. (set default_lang 1024)
  372.  
  373. ; string needs to be changed (see english string)
  374. (set #bad-kick
  375. (cat "Du mσste anvΣnda Kickstart 2.04 f÷r att kunna installera!"
  376. ))
  377.  
  378. (set #copying-reqtools "Kopierar reqtools.library till Libs:...")
  379. (set #copying-rtpatch  "Kopierar RTPatch...")
  380.  
  381. (set #which-language
  382. (cat "\nVilka sprσk skall installeras?"
  383. ))
  384.  
  385. ; string needs to be changed (see english string)
  386. (set #which-language-help
  387. (cat "\nAmigan kan arbeta med flera olika sprσk. Ett flertal filer "
  388.      "mσste kopieras till hσrddisken f÷r varje sprσk du vill kunna "
  389.      "anvΣnda.\n\n"
  390.      "F÷r att minimera hσrddiskutrymmet f÷r sprσkfiler kan du "
  391.      "vΣlja att bara installera filerna f÷r vissa sprσk.\n\n"
  392.      "Markera bara rutorna f÷r de sprσk du ÷nskar installera "
  393.      "i din dator.\n\n"
  394.      @askoptions-help
  395. ))
  396.  
  397. ; not translated yet!
  398. ;(set #install-msg
  399. ;(cat "\n\nReqTools installation script.\n"
  400. ;     "This script installs ReqTools library on your Amiga.\n\n"
  401. ;     "Read the DISTRIBUTION file for\n"
  402. ;     "more information on the distribution\n"
  403. ;     "and commercial usage of ReqTools.\n\n"
  404. ;     "ReqTools ⌐ 1991-1994 Nico Franτois\n"
  405. ;     "All rights reserved."
  406. ;))
  407.  
  408. ))
  409.  
  410. ;=============================================================================
  411. ; Norwegian strings
  412.  
  413. (if (= @language "norsk")
  414. (
  415.  
  416. (set default_lang 128)
  417.  
  418. (set #bad-kick
  419. (cat "Du mσ ha Kickstart 2.04 for σ installere!"
  420.          "Dobbel-klikk pσ 'Workbench_1.2-1.3' ikonet for σ installere"
  421.          "ReqTools pσ maskiner med Kickstart 1.2 eller 1.3"
  422. ))
  423.  
  424. (set #copying-reqtools "Kopier fil reqtools.library til Libs:...")
  425. (set #copying-rtpatch  "Kopier fil RTPatch...")
  426.  
  427. (set #which-language
  428. (cat "\nHvilke sprσk skal installeres?"
  429. ))
  430.  
  431. (set #which-language-help
  432. (cat "Amiga kan benytte mange forskjellige sprσk. "
  433.      "Dersom du vil ha ReqTools til σ bruke samme sprσk "
  434.      "som er benyttet pσ Amiga Workbench'en, mσ en "
  435.      "sprσkfil kopieres til system disken din. "
  436.      "Sprσkfiler mσ kopieres til disken for hvert sprσk"
  437.      " som du installerer.\n\n"
  438.      "For σ redusere plassen som benyttes til sprσkfiler, "
  439.      "kan du velge ut de sprσkene du vil ha tilgjengelige "
  440.      "pσ maskinen din.\n\n"
  441.      "Sett en hake ved de sprσkene du °nsker σ ha "
  442.      "tilgjengelige pσ din maskin.\n\n"
  443.      @askoptions-help
  444. ))
  445.  
  446. ; not translated yet!
  447. ;(set #install-msg
  448. ;(cat "\n\nReqTools installation script.\n"
  449. ;     "This script installs ReqTools library on your Amiga.\n\n"
  450. ;     "Read the DISTRIBUTION file for\n"
  451. ;     "more information on the distribution\n"
  452. ;     "and commercial usage of ReqTools.\n\n"
  453. ;     "ReqTools ⌐ 1991-1994 Nico Franτois\n"
  454. ;     "All rights reserved."
  455. ;))
  456.  
  457. ))
  458.  
  459. ;=============================================================================
  460. ; Polski strings
  461.  
  462. (if (= @language "polski")
  463. (
  464.  
  465. (set default_lang 256)
  466.  
  467. (set #bad-kick
  468. (cat "Musisz u√ywaΩ co najmniej Kickstartu 2.04 aby zainstalowaΩ ReqTools u√ywajΓc tego skryptu!"
  469.      " Dwukliknij na ikonce 'Workbench_1.2-1.3' aby zainstalowaΩ ReqTools"
  470.      "w komputerach z Kickstarem 1.2 lub 1.3"
  471. ))
  472.  
  473. (set #copying-reqtools "Kopiujδ reqtools.library do LIBS:...")
  474. (set #copying-rtpatch  "Kopiujδ program RTPatch...")
  475.  
  476. (set #which-language
  477. (cat "\nJakie jδzyki chciaεby⌠ zainstalowaΩ?"
  478. ))
  479.  
  480. (set #which-language-help
  481. (cat "\nAmiga mo√e pracowaΩ w r≤√nych jδzykach. Je⌠li chcesz aby"
  482.      " requestery ReqTools u√ywaεy tego samego jδzyka jakiego"
  483.      " u√ywa Amiga Workbench, plik 'reqtools.catalog' musi zostaΩ"
  484.      " skopiowany na dysk systemowy dla ka√dego z obsεugiwanych jδzyk≤w.\n\n"
  485.      "Aby ograniczyΩ miejsce zajmowane na dysku"
  486.      " przez powy√sze pliki, zaznacz tylko te z wy⌠wietlonych"
  487.      " jδzyk≤w (poprzez klikniδcie na gadgecie znajdujΓcym"
  488.      " siδ obok), kt≤re bδdΓ Ci naprawdδ potrzebne.\n\n"
  489.      @askoptions-help
  490. ))
  491.  
  492. (set #install-msg
  493. (cat "\n\nReqTools - skrypt instalacyjny.\n"
  494.      "Skrypt ten instaluje ReqTools w Twojej Amidze.\n\n"
  495.      "Przeczytaj plik DISTRIBUTION aby uzyskaΩ\n"
  496.      "informacje na temat dystrybucji\n"
  497.      "oraz komercyjnego wykorzystania\n"
  498.      "pakietu ReqTools.\n\n"
  499.      "ReqTools ⌐ 1991-1994 Nico Franτois\n"
  500.      "Wszelkie prawa zastrze√one."
  501. ))
  502.  
  503. ))
  504.  
  505. ;=============================================================================
  506. ;=============================================================================
  507. ; make sure we are running under a 2.04 ROM
  508.  
  509. (if (< (/ (getversion) 65536) 37)
  510. (
  511.     (abort #bad-kick)
  512. ))
  513.  
  514. ;=============================================================================
  515.  
  516. (message #install-msg)
  517.  
  518. (copylib
  519.     (prompt "\n" #copying-reqtools)
  520.     (help @copylib-help)
  521.     (source reqtoolslib)
  522.     (dest "Libs:")
  523.     (confirm)
  524. )
  525.  
  526. (if (exists "C:RTPatch")
  527. (
  528.     (copylib
  529.         (prompt "\n" #copying-rtpatch)
  530.         (help @copylib-help)
  531.         (source rtpatch)
  532.         (dest "C:")
  533.         (confirm)
  534.     )
  535. ))
  536.  
  537. (if (exists "SYS:WbStartup/RTPatch")
  538. (
  539.     (copylib
  540.         (prompt "\n" #copying-rtpatch)
  541.         (help @copylib-help)
  542.         (source rtpatch)
  543.         (dest "SYS:WbStartup")
  544.         (confirm)
  545.     )
  546. ))
  547.  
  548. (if (exists "SYS:Locale")
  549. (
  550.     (if (exists "LOCALE:")
  551.     (
  552.         (user 2)
  553.         (set lang (askoptions (prompt #which-language)
  554.                                      (help #which-language-help)
  555.                                      (choices
  556.                                         "Dansk"
  557.                                          "Deutsch"
  558.                                          "English"
  559.                                          "Espa±ol"
  560.                                          "Franτais"
  561.                                          "Italiano"
  562.                                          "Nederlands"
  563.                                          "Norsk"
  564.                                          "Polski"
  565.                                          "PortuguΩs"
  566.                                          "Svenska")
  567.                                    (default default_lang)
  568.                      )
  569.         )
  570.         (user old_level)
  571.  
  572.         (set n 0)
  573.         (while (set language (select n
  574.                                        "dansk"
  575.                                         "deutsch"
  576.                                         "english"
  577.                                         "espa±ol"
  578.                                         "franτais"
  579.                                         "italiano"
  580.                                         "nederlands"
  581.                                         "norsk"
  582.                                         "polski"
  583.                                         "portuguΩs"
  584.                                         "svenska"
  585.                                         ""))
  586.         (
  587.             (if (IN lang n)
  588.             (
  589.                 (if (<> 2 n)
  590.                 (
  591.                     (makedir (cat "LOCALE:Catalogs/" language))
  592.                     (copyfiles (source (cat catalogdir language))
  593.                                   (dest (cat "LOCALE:Catalogs/" language))
  594.                                   (all)
  595.                     )
  596.                 ))
  597.             ))
  598.             (set n (+ n 1))
  599.         ))
  600.     ))
  601. ))
  602.